• Home
 · 
• Games
 · 
• Slot Machine, and by my opinion a good one ^-^ (for 2005)

Slot Machine, and by my opinion a good one ^-^ (for 2005)

Slot Machine, and by my opinion a good one ^-^ (for 2005)

API Declarations


Dim intrnd2 As Integer = 1 ' slot reel 2
Dim intrnd3 As Integer = 1 ' slot reel 3
Dim inttokens As Integer = 100



Rate Slot Machine, and by my opinion a good one ^-^ (for 2005)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

        inttokens = inttokens + 1000     ' this is a debugger cheat
        Me.lblTanswer.Text = inttokens   'it gives the debugger 1000 tokens
    End Sub
    Private Sub btnPull_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPull.Click


        intrnd1 = Val(8 * Rnd() + 1)
        intrnd2 = Val(8 * Rnd() + 1)       'these give the values in the slot reels
        intrnd3 = Val(8 * Rnd() + 1)


        If intrnd1 = 1 And intrnd2 = 1 And intrnd3 = 1 Then        'prize for triple 1's
            inttokens = inttokens + 4
            MessageBox.Show("You won 4 tokens!", "Slots")           'prize for triple 2's
        ElseIf intrnd1 = 2 And intrnd2 = 2 And intrnd3 = 2 Then
            inttokens = inttokens + 8
            MessageBox.Show("You won 8 tokens!", "Slots")            'prize for triple 3's
        ElseIf intrnd1 = 3 And intrnd2 = 3 And intrnd3 = 3 Then
            inttokens = inttokens + 12
            MessageBox.Show("You won 12 tokens!", "Slots")
        ElseIf intrnd1 = 4 And intrnd2 = 4 And intrnd3 = 4 Then     'prize for triple 4's
            inttokens = inttokens + 16
            MessageBox.Show("You won 16 tokens!", "Slots")          'prize for triple 5's
        ElseIf intrnd1 = 5 And intrnd2 = 5 And intrnd3 = 5 Then
            inttokens = inttokens + 25
            MessageBox.Show("you won 25 tokens!", "slots")
        ElseIf intrnd1 = 6 And intrnd2 = 6 And intrnd3 = 6 Then    'prize for triple 6's
            inttokens = inttokens + 198
            MessageBox.Show("you got 198 tokens devil worshipper!!", " Slots")      'prize for the jackpot
        ElseIf intrnd1 = 7 And intrnd2 = 7 And intrnd3 = 7 Then
            inttokens = inttokens + 700
            MessageBox.Show("You got the Jackpot!!! 700 tokens!!", "Slots")
        ElseIf intrnd1 = 8 And intrnd2 = 8 And intrnd3 = 8 Then     'prize for triple 8's
            inttokens = inttokens + 50
            MessageBox.Show("You won 50 tokens!", "Slots")
        ElseIf intrnd1 = 9 And intrnd2 = 9 And intrnd3 = 9 Then    'prize for triple 9's
            inttokens = inttokens + 65
            MessageBox.Show("You won 65 tokens!", "Slots")
        ElseIf intrnd1 = 1 And intrnd2 = 2 And intrnd3 = 3 Then     'prize again... this is awful repepititive
            inttokens = inttokens + 123
            MessageBox.Show(" You won 123 tokens!", "Slots")
        ElseIf intrnd1 = 7 And intrnd2 = 8 And intrnd3 = 9 Then      'prize
            inttokens = inttokens + 98
            MessageBox.Show("you won 98 tokens!", "slots")
        ElseIf intrnd1 = 3 And intrnd2 = 2 And intrnd3 = 1 Then         'prize again
            inttokens = inttokens + 123
            MessageBox.Show("You won 123 tokens!", "Slots")
        ElseIf intrnd1 = 4 And intrnd2 = 5 And intrnd3 = 6 Then        'prize
            inttokens = inttokens + 56
            MessageBox.Show("You won 56 tokens!", "Slots")
        ElseIf intrnd1 = 2 And intrnd2 = 2 And intrnd3 = 5 Then      'prize for ryans bonus
            inttokens = inttokens + 69
            MessageBox.Show("You won the Ryan Bonus!", "Slots")
        ElseIf intrnd1 = 7 And intrnd2 = 1 And intrnd3 = 1 Then      'the prize for the dave bonus
            inttokens = inttokens + 118
            MessageBox.Show("Congrats..... you got the Dave Bonus!", "Slots")
        ElseIf intrnd1 = 2 And intrnd2 = 9 And intrnd3 = 7 Then
            inttokens = inttokens + 67                                    '297 prize
            MessageBox.Show("You got 67 tokens....good job!", "Slots")
        ElseIf intrnd1 = 6 And intrnd2 = 8 And intrnd3 = 4 Then
            inttokens = inttokens + 45
            MessageBox.Show("you got some tokens... 45", "Slots")   ' prize for 684
        ElseIf intrnd1 = 9 And intrnd2 = 2 And intrnd3 = 1 Then
            inttokens = inttokens + 40
            MessageBox.Show("You got 40 tokens. good job", "Slots")     'prize
        ElseIf intrnd1 = 1 And intrnd2 = 5 And intrnd3 = 9 Then
            inttokens = inttokens + 35
            MessageBox.Show("You got 35 tokens, congratulations!", "Slots")    'prize
        ElseIf intrnd1 = 1 And intrnd2 = 8 And intrnd3 = 7 Then
            inttokens = inttokens + 42
            MessageBox.Show("You got 42 tokens!", "slots")
        ElseIf intrnd1 = 8 And intrnd2 = 4 And intrnd3 = 8 Then      'prize
            inttokens = inttokens + 39
            MessageBox.Show("You got 39 tokens!", "from the Admin")
        ElseIf inttokens = 0 Then
            MessageBox.Show("Sorry, your out of tokens!", "Game Over!")       'the gameover code
            Me.btnPull.Visible = False     'makes u unable to play anymore
            lblslotnumber1.Text = ""
            lblslotnumber2.Text = ""    'this clears reels
            lblslotnumber3.Text = ""

        Else
            inttokens = inttokens - 1    'takes coin away

        End If


        If inttokens > Val(5000) Then
            mnuiExtra.Visible = True        'the cheat menu code
        End If

        If inttokens > Val(10000) Then
            lblmagiccat.Visible = True
        Else : lblmagiccat.Visible = False    'pro status
        End If

        If inttokens > Val(5000) Then
            inttokens = inttokens - 1
            lblmagicdog.Visible = True           'this is maverick status
        Else : lblmagicdog.Visible = False
        End If

        If inttokens > Val(10000) Then
            inttokens = inttokens - 1
            Me.lblmagicdog.Visible = False
            Me.mnuiBonus.Visible = True      'this is what sets up pro status
        Else : Me.mnuiBonus.Visible = False
        End If

      
        Me.lblslotnumber1.Text = intrnd1
        Me.lblslotnumber2.Text = intrnd2
        Me.lblslotnumber3.Text = intrnd3     'display code
        Me.lblTanswer.Text = inttokens



    End Sub

    Private Sub frmSlots_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Randomize()
        inttokens = inttokens - 1      'this is what happens when the form loads, like the spin of the reels and the taking of a token
    End Sub


    Private Sub mnuireel0_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuireel0.Click
        lblslotnumber1.Text = "0" And lblslotnumber2.Text = "0" And lblslotnumber3.Text = "0"
        MessageBox.Show("Wow....zeros thats impossible! Good job cheater!", "Game Over")    'the trap cheat. lol, eat this cheaters
        inttokens = 0
        Me.lblTanswer.Text = inttokens
    End Sub

    Private Sub mnuireel7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuireel7.Click
        lblslotnumber1.Text = "7" And lblslotnumber2.Text = "7" And lblslotnumber3.Text = "7"
        MessageBox.Show("You got the Jackpot!!! 700 tokens!! but you cheated!!", "Cheater")  'cheating for jackpot
        inttokens = inttokens + 700
        Me.lblTanswer.Text = inttokens
    End Sub



    Private Sub mnuireel9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuireel9.Click
        lblslotnumber1.Text = "9" And lblslotnumber2.Text = "9" And lblslotnumber3.Text = "9"
        MessageBox.Show("you cheated..... enjoy your 65 tokens.... cheater!", "Cheater")   'cheating for triple 9's
        inttokens = inttokens + 65
        Me.lblTanswer.Text = inttokens
    End Sub

    Private Sub mnuitoken10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuitoken10.Click
        inttokens = inttokens + 10        'cheating for 10 tokens
        Me.lblTanswer.Text = inttokens
    End Sub

    Private Sub mnuitoken100_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuitoken100.Click
        inttokens = inttokens + 100
        Me.lblTanswer.Text = inttokens      'cheating for 100 tokens
    End Sub

    Private Sub mnuiToken1000_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuiToken1000.Click
        inttokens = inttokens + 1000        'cheating for 1000 tokens
        Me.lblTanswer.Text = inttokens
    End Sub

    Private Sub mnuiExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuiExit.Click
        Application.Exit()    ' exit
    End Sub

    Private Sub mnuiRestart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuiRestart.Click
        inttokens = 100   'this resets the player vault
        mnuiExtra.Visible = False    'disables cheats again
        btnPull.Visible = True    'allows players to play again once game overed
        Me.lblslotnumber1.Text = ""
        Me.lblslotnumber2.Text = ""     'clears reels
        Me.lblslotnumber3.Text = ""
        Me.lblmagicdog.Visible = False
        Me.lblShroud.Visible = False
        Me.lblmagiccat.Visible = False
        Me.lblTanswer.Text = inttokens      'this stes tokens
    End Sub

    Private Sub mnuileetstart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuileetstart.Click
        inttokens = 1500                 'this resets player vault
        Me.mnuiBonus.Visible = False     'this gets rid of the pro menu
        Me.lblTanswer.Text = inttokens    'displays tokens
        Me.lblmagiccat.Visible = False    'gets rid of pro banner
        Me.lblslotnumber1.Text = ""
        Me.lblslotnumber2.Text = ""    'clears reels
        Me.lblShroud.Visible = False    'displays basic functions
        Me.lblslotnumber3.Text = ""

    End Sub

    Private Sub mnuidissapear_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If Me.mnuiCheats.Visible = True Then
            Me.mnuiCheats.Visible = False       'this is the pro cheat menu, destroyer
        Else : Me.mnuiCheats.Visible = True
        End If

    End Sub

    Private Sub mnuidebug_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuidebug.Click
        If Me.lblShroud.Visible = False Then
            Me.lblShroud.Visible = True          'debug tool
        Else : Me.lblShroud.Visible = False
        End If
    End Sub


End Class